ë il vincitore. 

Non è possibile 'SALTARE' il 
proprio turno di gioco, anche 
se muovendo si ‘regalano’ 
quadrati all avversario. 

II programma BASIC allega- 
to permette di giocare contro 
il computer, a diversi livelli di 
difficoltà. 

II livello 1 ë il più facile, ed il 
computer non analizza a fon- 
do le mosse prima di eseguir- 
le, mentre al livello 10 analiz- 


za tutte le possibili mosse. 
Naturalmente il computer im- 
piega un po’ di tempo ad 
analizzare le mosse, per cui 
non preoccupatevi se non ri- 
sponde immediatamente, ma 
aspettate: dopo circa un mi- 
nuto il computer è in grado di 
dare una risposta, qualunque 
sia il livello di gioco prescel- 
to. 

E possibile anche fare gioca- 
re il computer contro se stes- 


so per osservare il suo meto- 
do di gioco, o per imparare 
a giocare una partita. 

In ogni momento viene se- 
gnalato il punteggio e le pos- 
sibili variazioni al gioco. Le 
SCELTE a vostra disposizio- 
ne possono essere effettuate 
soltanto quando è il vostro 


turno. 


BUON DIVERTIMENTO!!! 
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916 LB(0)=LX+2:LB(1)=LX-31:LB(2)=LX+33 4020 IFRD$ <> "S"ANDRD$ <> "N" THEN4000 m 
917 LA(O)SLX-2:LACI) SLX*31:LA (2) 5LX-33 4030 LE-0 
920 RETURN 4040 RETURN 
1000 LV=28745:1M=29149:FM%=0 4500 CLS:NX-0:PRINT" ЖАЖА ЖЖЖ А ЖЖЖ ЖЖЖ" 
1010 SX-0:8Y-0 4501 PRINT" X жи: 
1020 S%(0)=144:S%(1)=159 4502 PRINT" X x" 
1030 TT=0:PT%(0)=0:PT%(1)=0:TK%=0 4503 PRINT" + Ж ЖЖЖ Ж Ж Ж Ж ЖЖЖ x" 
1040 DIMZ1(545),22(545) ,23(545) 4505 PRINT" + X8 UA DRA T IX x" 
1045 DIMSDX(100) ,DR3 (100) 4510 PRINT" % ҰЗ Ж Ұ Ұ Ж Ж Ж жи! Р Е 
1046 TT$(0)-"E^ IL TUO TURNO !!! " 4515 PRINT" X жи! 5 GLS:GLEAR1000:COLOR1,0:GOSUB1000 PETUNT HI SECONDI CETTE 
i REI LA MIA MOSSA" е Щи : со PIENE HT : 3 10 GOSUBA4500:GOSUBA4500 ИР] 

J Я ә ^ * " . 
1500 L1=LK:LK=LV+SX+32£SY 4530 PRINT" X жи: 20 CLS:PRINTTL$ ; FRINT 
1510 IFLKSLMORLK «LVTHENLK-L 1 4535 PRINT" X SGUOLA  SCHEIDEGGER жи: 30 РБІМТ"ЕОБМІЛ.А: 2" 
1530 RETURN 4540 PRINT" X COMO x" " = " 
1600 PRINT"LIVELLO (1-10) O=FINE ": 4542 FORI-1TO3 35 PRINT Yo hs BXA 
1610 INPUTLE$ : LEX-VAL(LE$) : LE-LEX 4545 PRINT" # £ ": NEXT 40 PRINT:PRINT"SOLUZIONE:":GOSUB1100 
1620 RETURN 4546 PRINT" Жжжжжжжжжжжжжжжжжажжжжжжижжажия"и: 
2000 Сі-РЕЕК (1.6) 4550 D$=" PREMERE 5 РЕВ INIZIARE " 45 GOSUB 500 VILLA g enga | 
2001 CR=G1-64 4555 H%=LEN(D$) 50 PRINT"INSERISCI A B C" ALTRO CALCOLO (52H57 s 
2005 IF Ci=1440RC1=159THENCR=96 4560 PRINT@418,D$: ; 
2006 POKELG,CR 4568 N%=N%+1!IFN%>22THENN%=0 51 SOUND25,1:SO0UND18,1 
2010 FOR TM-1TO100:NEXT 4570 C$=RIGHT$(D$,H%-1):B$=LEFT$(D$,1) 60 PRINTG447," ":;:INPUT"Az":A$ ! A=VAL(A$) 
2020 POKELG,C1 4571 D$=C$+B$ " " 
2030 FOR TM-1TO100:NEXT 4575 SOUNDSDX (NX) , DR% NX) 65 PRINT@448, S P 
2040 RETURN 4580 F$="":F$=INKEY$: IFF$="S"THENRETURN 70 FRINT@447, i:INPUT"B=":B$ ) B=VAL(B$) Il di cuislleghi 
3000 01%=0:!FPEEK(LG) <> 96THENRETURN 4590 GOTO4560 75 PRINT6448," " programma di cul allegnia- 
8005 IFPEEH(LG+1)=107ANDPEEK(LG-1)=107THENCH=109:01%=1 4500 RESTORE:FORI-0TO22 :READSDX(I),DRX(I):NEXT ND eas "sd mo il listato ha un discreto in- 
3010 IFPEEK(LG*32) <107АМОРЕЕК (LG-32) -107ТНЕМОН-73101%-1 4601 RETURN 80 PRINTe447, ;:  ТМРОИТ"Ся": 08 : C=VAL(C$) dal tO di vista di 
3030 IFO1%=UTHENRETURN 4605 DATA 25,1,25,1,25,1,26,1,25,1,0,2 85 PRINT@448," " teresse dal punto di vista dl- 
3040 POKELG,CH:FK%=0!TK%=TK%+1 4610 DATA 25,1,25,1,25,1,26,1,25,1,0,2 È я дайсо. 
3045 IFFM&=10RRD$="S" THENGOSUB3300 4620 DATA 25,1,25,1,25,1,26,1,25,2 90 IFAZOTHENGOSUB200:GOTO160 : ТОРТ ЕУ 
3050 IFGH=109THEN3100 4530 DATA 23,1,23,2,21,2,20,1,20,2,18,3 100 DT-BXB-(4XAXC) Si tratta del calcolo delle ra- 
3055 L(O)-LG:L(1)9LG*2:L(2) 2LG-31:L(83) 2LG 33 5000 CLS:PRINT"QUADRATI" PRINT Ë ici idi i 
3056 K-0:FÜRIZOTO3:IFPEEK(L(I)) C 96THENK-K *1 5010 FORI=1T06 110 IFDT<OTHENPRINT@416, "МОМ ESISTONO SOLUZIONI REALI":GOTO160 ДЕСТЕ 
3057 NEXT 5020 PRINTTAB(9)"+ + + + + t + + + + +":PRINT 120 X1=(-1*#B+SQR(DT))/ (2ЖА) secondo grado. 
3060 IFK=4THENPOKELG+1 ,5%(FM%)!FK%=FK%+1:GOSUB6060 5030 NEXT i ta Precisiamo che la radice rea- 
3065 1.(0)=1.G!L(1)=LG-2:L(2)=L1.G=33:1,(8)=LG+31 5040 PRINTTAB(9)"* + + + + + + + + + t"; 130 X2=(-1*B-SQR(DT))/(2*ñ) °° я өза ыу 
3066 К-0:ҒОНІ-ОТОЗ:ІРРЕЕК(І,(1))<>96ТНЕМК-КФ1 5050 RETURN 140 PRINT@416,"A="/A:"B="/B/"C=" Ci" le di un'equazione è il valore 
3067 NEXT 6000 PRINT@448," FINE " " =н (n zm i ib i 
3070 IFK=4THENPOKELG-1,S%(FM%):FK%=FK%+1:GOSUB6060 5010 IFPT%(0)>PT%(1)THENPRINT"HAI VINTO TU .. COMPLIMENTI !"; 150 РВІМТ"Хі=":Хі: Х2=":Х2 numerico per cuil'equazione 
3080 GOTO3200 6020 IFPT%(0)<PT%(1)THENPRINT"HOVINTO IO !": 160 PRINTe480,"ALTRO CALCOLO (5/N)":;INPUTR$ assume il valore O. 
3100 L(0)5LG:L(1)9LG^64:L(2) 2LG- 31 :L (3) 2LG--33 6030 GOSUB6040 anon i ini significa: 
3110 K=0:FORI=0T03:IFPEEK(L(1))<>96THENK=K+1 6032 INPUT"ALTRA PARTITA (S/N)":R$ 165 IFR$="S"THENZO In altri termini significa: ; 
3115 МЕХІ 6033 IFR$="S"THENRUN 170 RUN trovare i valori di X per cui Y 
3120 IFK=4THENPOKRELG-32,S%(FM%):IFK%=FK%+1:GOSUB6060 6034 GLS:END " " ` 
3130 L(1)=LG+64:L(2)=LG+31:L(3)=LG+33 5040 FORN-0TO! 1 :SOUNDSDX(N) ,DR%(N) : NEXT 200 PRINT@416, "EQUAZIONE DI PRIMO GRADO ë uguale a ZERO. 
3135 K=0:FORI=0T03:;IFPEEK(L(1I))<96THENK=K+1 6060 FORN=12T022:SOUNDSD%(N) , DR (М) : NEXT 205 GOSUB 500 Il programma ha il seguente 
pedes n SUD SUM 210 Ха-1ЖС/В svolgimento: 


3150 
3200 
3205 
3210 
3300 
3310 
3320 
3340 
3350 
3370 
3380 
4000 
4001 
4002 
4005 
4006 
4007 
4010 
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IFK=4THENPOKELG+32,S%(FM%):FK%=FK%+1:G0SUB6060 


PT%(FMX)=PT#(FM%)+FK%!TT=PT%(0)+PT%(1) 


IFTT=60THEN6000ELSEPRINT®@64, "TU: " * PTX CO) : PRINT"IO: ":PTX(C1) : 


RETURN 

FORTM-1TO3 

POKELG , CH-64 

ЗОПКОККО (25), 1 

POKEL,G , GH 

SOUNDRND(31),1 

NEXT 

RETURN 

CLS:PRINT"QUADRATI":PRINT 

PRINT"PER MUOVERE USA I TASTI CURSORE" 
PRINT" (SENZA IL TASTO СТКІ.) ":РКІМТ 
РКІМТ"РЕК FISSARE LA TUA POSIZIONE" 
PRINT"USA IL TASTO INVERSE" 
PRINT"(SENZA IL TASTO CTRL.)":PRINT 
RD$-"N":INPUT"DIMOSTRAZIONE (S/N) ":!RD$ 


220 PRINT@®416,"A="/A:"B="/B/"C="!C;" 


230 


PRINT"UNICA RADICE: "¿XK 


240 RETURN 


500 


FORI=0TONX%:SOUNDSD% (I), DRX(I1) NEXT 


510 RETURN 
1000 NX%=25:DIMSD#(NX%),DRX(NX%) 


1010 TL$=" EQUAZIONI DI SECONDO GRADO" 
1030 RETURN 

1100 PRINTTAB(5)" 2" 

1120 РЕТМТТАВ( 5)" -B *SQR( В - 446) 


1130 PRINTTAB(5)" -" 
1140 РВІМТТАВ(5)"Х = ------------------ 
1150 PRINTTAB(5)" 2A" 


dopo la presentazione ed il ti- 
tolo, sul video viene visualiz- 
zata l'equazione, nella forma: 
Y = aXÍ2 + bX + C 

cioè il valore di Y ë dato dal- 
la somma seguente: 

X elevato alla seconda e mol- 
tiplicato per a, 

PIU: X moltiplicato per b, 
PIU: il termine noto c. 

Per chiarezza, sul video com- 
pare anche la formula che 
permette la soluzione del pro- 
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blema. DI E. NOSEDA 
1190 RETURN 


Occorre ricordare che un'e- 
4500 CLS:N*-0:PRINT" ЖЖЖЖЖЖЖЖЖЖҰЖЖЖЖЖЖЖЖЖҰЖҰЖЖЖЖЖЖЖ ЖЖЖ "i quazione di secondo grado 
4501 PRINT? nc ha DUE RADICI che di solito 
PIDA я i sono chiamate X1 e X2. 
2545 БЕІН Il programma permette il cal- 
481 0 PRINT" colo delle due radici X1 e X2, 
А se l'utente inserisce i valori 
4515 PRINT" Ж dei icienii b 
4520 PRINT" £ ei coef icienti a, b, с. 
4525 PRINT" X Un messaggio avvisa l'uten- 
Ж 
3 


ННН E EEEE E EEEE НН НЕННЯ 
#EQUAZIONI SECONDO GRADO # 
# #4 4 #8 E E EE E E E EEE E EEE EE EEEE 


Te te te 3 


(а) (ау уе ер т 
Tu NS 


аа %- та 


" на te пе! caso che поп esistano 
t КІ; 3 soluzioni nel CAMPO REALE. 
4540 PRINT" X Per uscire dal programma ë 
4542 FORI=1TO sufficiente rispondere N (cioé 
4545 PRINT" Ж X "; NEXT NO) alla domanda: ALTRO 


4546 PRINT" ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ": CALCOLO (S/N)? 
4550 D$=" PREMERE 5 PER INIZIARE " 
4555 HX-LEN(D$) 

4560 PRINT®418,D$: 

4568 N%=N%+1:IFN%>NXXTHENN%=0 


SCUOLA  SCHEIDEGGER 
(E) (0) А (0) 


s= x< 


ESEMPI: 
а=2 р=20 с= 18 
RISULTATO: X129 X221 


II gioco dei quadrati 


4570 C$RIGHT$(D$,H*-1) : B$-LEFT$(D$,1) 


4571 D$=C$+B$ 
4575 SOUNDSD?6 (N26) , DR?6 ( N%) 


4580 F$z"";P$zINKEY$:IFF$z"S'"THENRETURN 


4590 GOTO4560 


4600 RESTORE:FORIZOTONX*:READSD*(I),DRXI):NEXT 


4601 RETURN 


ЖОО БЕТА REC oO 
4610 DATA21,1,19,1,18,1,19,1,23,1,0,2 
4620 DATA 30,1,28,1,27,1,28,1 

4630 DATA 30,1,28,1,27,1,28,1 

4640 DATA 30,1,28,1,27,1,28,1 


4650 DATA 31,3,0,2 


a=1b=2c=1 
RISULTATO: X1=1 X2=1 
(RADICI COINCIDENTI). 


Non sono in grado di fornire 
ragguagli storici relativi a 
questo gioco, se non il fatto 
che lo giocavo parecchi anni 
fa sui banchi di scuola, con 
carta e matita, assieme ad un 
compagno di banco, con 
grande letizia dell’insegnan- 
te che ci vedeva assorti e 
concentrati (?!!) nella lezione. 
Lo svolgimento è il seguente: 
i DUE giocatori, a turno trac- 
ciano una linea per unire due 


punti vicini. 

Quando la linea tracciata 
CHIUDE un QUADRATO il 
giocatore che l’ha tracciata 
CONQUISTA quel quadrato, 
e lo contrassegna con il pro- 
prio colore. 

Il giocatore che conquista un 
quadrato ha il diritto di ese- 
guire un'altra mossa, può 
quindi tracciare un'altra linea, 
ed il suo turno di mossa con- 
tinua finché riesce a conqui- 


stare quadrati. 

All'inizio NON è possibile 
conquistare quadrati, in 
quanto tutto lo schema è libe- 
ro, ma procedendo nel gioco 
potrà succedere che un gio- 
catore avrà la possibilità di 
accaparrarsi numerosi qua- 
drati consecutivamente. 
Quando non è più possibile 
tracciare alcuna linea il gioco 
termina e chi ha conquistato 
il maggior numero di quadrati 


QUADRATI 


TU: 
ID: 


г 
7 


ATTENDI LA MIA MOSSA 


%-%-% + +-+-+ +-+ + + 


ІШІ і 1 


%-%-% +-+ +~- + + 





5 GLEAR1000:00LOR1,0 505 IFPT%(0)>15ANDLE>=RND(2)THEN600 
O @ ө 10 GLSIGOSUB1000:GOSUB4600:GOSUB4500 506 XL=RND(404):LX=XL,+L,V 
12 605084000: ТЕКО + "8 "ТНЕМЗО 510 LG-LX:GOSUBS3000: IFO15£2 OTHENS06 
25 GOSUBI600: IFLE-OTHENCL,S : END 520 IFFK%=0THENFM%=0 ; RETURN 
26 IFLE<10RLE> 10THEN25 530 IFLE=0THENRETURN 
30 GOSUBS000 600 1,11%=0:1.R%=0:LS%=0:FORY=0T012STEP2 
55 PRINT@64,"TU:":PT%(0) :PRINT"IO: ":PTX (1): 605 FORX-1TO19STEP2 
56 GOSUB6040 610 GOSUB800 
58 IFRD$-"S"THENGOSUB200 : СОТО6О 650 NEXTX,Y 
59 PHRINTG11,TT$ (FM): 670 IFOK*-1THENS10 
60 SOUND214FM%35,FM%+1:SOUND214+FM%35 ЕМЕА 1 680 FOR Y=1T011STEP2 
61 TFFM%=1THENGOSUB500:G0T058 690 FORX=0TO20STEF2 
62 IFRD$-"S"THENGOSUBS500 : GOTO72 700 GOSUB910:GOSUBS830 
63 PRINTG416, "L-LIV. "IPRINTe480, "LIU-":LE: 710 NEXTX,Y 
64 O1X-0:A$-INKEY$:IFA$-""THENGOSUB1500:LG-LK:GOSUB2000:GOTO63 715 IFOKX-1THENS10 
65 IFA$-" "THENSY=SY+1:IFSY>12THENSY=12 720 IFLS% <> OTHENH=RND(LS%):LX=Z1(H):GOTOS10 
66 IFA$="."THENSY=SY-1:IFSY<OTHENSY=0 730 IFLRX«»0THENHZRND(LRX) : LX2Z2(H) :GOTOS10 
67 IFA$-","THENSX-SX«41: ТЕЗХ» 20THENSX-20 735 1FLU%=0THENFM%=0 RETURN 
68 IFA$="M"THENSX=SX-1:IFSX<OTHENSX=0 740 H=RND(L.U%) 
69 IFA$-":"THENLG-LK:GOSUB3000 750 LX-Z3(H) 
Ода 4 " ТО IFA$-"F"THENRUN 780 GOTOSIO 
71 IFA$-"L"THENLE-LE«*1:; IPLE? 10THENLE=1 800 LX=LV+X+32%Y 
FLOPPY DISK DRIVE PRINTER PLOTTER JOYSTICK 72 IFO1%=0THEN62 805 IFPEEK(LX)<>96THENRETURN 
75 IFFK%=0THENFM%=1 810 LB(0)=LX+64:LB(1)=LX+31:LB(2)=LX+33 
; ici iai ; 80 FORI-1TO15:A$-INKEY$ : NEXT 820 LA(CO)-LX-64:LA(1)2LX-31:LA(2) 2LX--33 
Floppy disk da 5,25 pollici, faccia singola % Laser EE 40 - printer plotter 90 GOTO5B 830 0K%=0:PAX=0:FB%=0:FORI=0T02 
Densità: 48 tpi * Interfaccia Centronic 200 PRINT@12, "*#DIMOSTRAZIONE?": 840 IFPEEK(LB(1I))<«<>96THENPB%=PB%+1 
Tracce/dischetto: 40 ° 4 colori (rosso, blu, verde, nero) 205 PRINT®416, "G=GIOCO" 850 ІРРБЕК(І.А(1))<>96ТНЕМРА%-РА%Ғ1 
Settore/traccia: 16 ® 40/80 colonne per riga UM алалы аласы REN Su 855 NEXTI Ar S 
i i i 22 =INKEY$ ; IFIR$="F" Y 870 IFPBX-3ORPAX-STHENX-20:Y-11:0KX-1:G 
Bytes sottore: 128 ° Set di 96 caratteri ASCII i i - Ек 225 IFIR$="G"THENRD$="N" :LE=1:FM%=0:PRINT®1 1 ,TT$(FM%) 880 IFEBX<?ANDPAX<?THENLS%=LS5%+1 :Z1(L8%)=LX 
Capacità: 80 KB e 64 diverse grandezze di caratteri Per informazioni e richieste 230 RETURN 890 IFPB%=2ANDPAX <> 2THENL.R%=1R%1:Z2(LR%)=LX 
Velocità di giro del disco: 80 RPM e Risoluzione: 0,2 mm. t | f М 2 500 ІРТК% <5ОВ(1І,Е-ОАМПТК%<100)ТНЕМ506 895 ТЕРВИ <> 2ANDPA%=2THENLR%=LR%+1:2Z2(LR%)=1LX 
° Larghezza carta 114 mm. elefonare о scrivere а: . 501 IFLE>=RND(10)ORFT%(0)218THEN600 896 IFFR%=2ORPAX=2THENI.UX=LU%+1Z8(1U%)=LX 
° Collegabile anche all'Apple II, Vic 20 ARCA s.a.s. Via Valleggio, 2 Reale ОНАНЦИРЛЕНИЦИЕЙИНЕНЕДЕ 900 PETURN 
! : 503 IFPT%(0)>10ANDLE>=RND(6)THEN500 910 LX-LV4X432XY 
Dragon, Spectrum, TI 99/4A 22100 Como Tel. 031 1275088 504 IFP'T%(0)5>12ANDLE>=RND(4)THEN600 915 IPPEEK(LX) <>96THENRETURN 
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DI B. POTITO E G. VENTURINI 


Obstacle 


Il gioco che vi proponiamo è 
molto divertente, e permette 
a due giocatori di competere 
usando la TASTIERA del 


Ognuno dei due giocatori 
può far cambiare direzione 
alla propria riga, premendo i 
tasti di movimento, il cui signi- 


— URTA CONTRO LA Ll- 
NEA AVVERSARIA 


— TORNA SUI PROPRI PAS- 
SI (urtando così la propria li- 


RED NINS 7 


PLAYER 2 


5 G 
10 


12 


Inversioni 


1.5: GOSUB3000 
CLEAR100:GLS 
PRINTER TO NI Ме P STI CO НЕ" 


1550 
1560 
1570 


INVERSIONE LIVELLO 


INVERSIONI ESEGUITE N. 


N. IH POSIZIONE ESATTA © 





IFGC?19THENFRINTG260, "DISCRETO H 
FORH=1TOLEN(N#) 
X=ASC(MID$ (N$,H,1)) 


computer LASER 110 0 310  ficato è spiegato nelle istru- nea). 18 FORH-0TO100:N$-INKEY$ :NEXT 1980 POKE28946+H,X-64 
come pannello di controllo zioni 15 PRINTe265,"IL TUO NOME ? " 1590 NEXT:FORH-20TO31:8OUNDH,1:NEXT: PRINTe260,"GIOQHI ANCORA?" 
ЦА 20 FORH=1T015 1595 F$-INKEY$ 
Il gioco termina quando uno | giocatore che URTA contro ЫЗ ЖА МНСРҒАР ААҚ. 30 U$=INKEY$ 1600 IFF$="S"THENRUN 


All'inizio compare ип recinto 





















: . ў d > ta Š керетін 40 IFU$=""THEN30 1605 IFF$s"N"THENGLS;FRINTG260,"ARRIVEDERGI "N$: PRINT; END 
con due linee che si muovo dei due giocatori: gli OSTACOLI PERDE il gio 50 X=ASC(U$):IFX>64THENPOKE29030+H,X:N$=N$+U$ 1610 GOTO1595 
no. со. 55 IFN$-""THENN$-"MISTER" 3000 РБІМТ"-----<2-<-ІМУЕНВІОМЕ------------" 
La linea а sinistra parte dal URTA СОМТАО ИМО ОЕ! Е un gioco entusiasmante, CE: cus e 
bordo superiore e scende, а BORDI che metterà alla prova la vo- mente ed è facile perdere il 80 PRINT@265," GRAZIE " 3030 PRINT"CIFRE DA (1234567890)" 
i ` pi 1 i 90 FORP-0TO400:NEXT 3040 PRINT"CHE INIZIALMENTE SONO" 
riga a destra parte dal bordo  — URTA CONTRO LA PRO- stra prontezza di riflessi poi- controllo. COTENT ISTON EURI S TONET PEG OST SI E En 
inferiore e sale. PRIA LINEA ché si svolge molto veloce- BUON DIVERTIMENTO!!! 120 PRINT@263," LIVELLO-(1-3) X":: 3060 PRINT"NEL LORO ORDINE NATURALE" 
130 IFINKEY$z"1"THENL-113:POKE28950,L:0-5:GOTO400 3070 PRINT"MEDIANTE INVERSIONE" 
140 ТЕТМКЕУ 8 < "2 "ТНЕМ!.< 114 : РОКЕ28950 ,1.: 97: С0Т0400 3080 PRINT"DELLE PRIME CIFRE." 
2 naTASS 0 Да S0 ORO MED 210 IFX-OTHEN260 150 IFINKEY$-"3"THENL.-115: POKE28950,L :0-10;GOTO400 3085 PRINT:PRINT"PREMI SPAZIO" 
e A O E INA Я ENS i CHIC per , i 160 GOTO130 3090 IFINKEY$ <>CHR$ (32) THEN3090 
8 PORE-A,SINEXT — NBAS 230 IFX-2ORINP(A3)-&2THENX-2:Y1zYI-1:Y3-Y3-32:G0T0270 ваа ТІ кекті һе 3095 FORI=1T050:8s-INKEY$:NEXT 
ХЕ-А,5! 2 = A= тог А=21 > Td: = -32: 500 PRINT®128," 1 2I dU prar Жі» E IO 3100 CLS:PRINT"AD ESEMPIO VIENE STAMPATO":PRINT 
9 POKE30862,88:POKE30853,158 240 IFX-3ORINE(43) -55THENX-3:X1-X141:GOTO270 510 PRINTG150,"* Ж Ж Ж X X X жж жж" 8110 PRINT" 5789054321" PRINT 
10 CLS 250 IFX-4ORINP(43)-259THENX-4;X1-7X1-1:GOTO270 520 PRINT@38, "INVERSIONE LIVELLO-":P0OKE28729,L 3120 PRINT"SPOSTANDO IL CURSORE" 
11 РБІМТ"ЖЖЖ ЖҰЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ FEF 260 X-D1:GOTO220 550 PRINT@356,"INVERSIONI ESEGUITE М.":СЖ:" 3130 PRINT"GOSI^ INDICATO ( ^ )" 
12 ББІМТ"ЖЖЖЖЖЖЖ O B 8 TA C L E ЖЖЖЖ 270 Пі-Х:ІЕ2(Х1,Ү1)-<1ТНЕМ400 552 PRINT@420,"N.IN POSIZIONE ESATTA ":I 3140 PRINT"NELLA POSIZIONE 5" 
14 PRINT'EEEEELEELELEEELELECELECESESE ELE 280 РОКЕ28704%Х14ҮЗ,159:2(Х1,Ү1)--1 1140 DIMA(Q):W-3 3150 PRINT"SI OTTERA' 0987654321" 
15 PRINT' L E F T RIGHT" 290 RETURN 1150 FORI=1T0@ 8160 PRINT"SPOSTANDO ORA IL OUSRORE " 
18 PRINT" ------- 000 9-7 " 300 X-PEEK(30873)-48:POKE30873,0 IGO N FS A Cuna 3170 PRINT"NELLA POSIZIONE 0" 
25 PRINT"1 = DOWN в = DOWN" 320 IFX=60RINF(46)=61THENX=6:Y2=Y2+1!Y4=Y4+32:GOT0870 ERO ENTRA OI RENCOTO LIO S PR Ре GIOCO 
30 PRINT"2 = UP 7 s UP" 330 IPX-7ORINP(A6)-62THENX-7 :Y22Y2-11Y4-Y4-32:GOTO370 1200 NEXT 8198 PHINT"EREMERE IL TASTO SPAZIO! 
35 PRINT"3 = LEFT 8 = LEFT" 340 IFX-80RINP(46)-55THENX-8:X2-7X2*1:GOTO370 1210 A(I)=N:NEXT:G=0 3200 IFINKEY$«?CHR$ (32) THEN3200 
40 PRINT"4 = RIGHT 9 = RIGHT" 350 IFX=90RINP(46)=59THENX=9;X2=X2-1:G0T0970 250 FORI=1TOQ 220 RETURN 
45 PRINT"JOYSTICK 1 JOYSTICK 2" 360 X-D2:GOTOS320 1260 IFA(I)<10THENPRINT@158+(1%3),A(I)ELSEPRINT@159+(1%#3),"0" 5000 FORA-31465T032000; INPUTT$ 
È ЕУ с 1270 PRINTG160*(IX3),"X":NEXT 5010 PRINTPEEK(A),A:NEXT 


50 РБІМТ" ЖЖЖЖЖЖЖЖЖАЖЖЖҰЖЖЖЖЖҰЖЖЖЖЖЖҰ ЖҰЖ E EG E E 


52 POKE30873,0:PRINT:PRINT" 


54 IFPEEK(30873)-0THENS4 


PRESS KEY TO START GAME" 


60 CLEARA:DIMZ(31,14) : SOUND20,1 


68 CLS:FORA=0T031 


70 POKE28672+A,144:Z(A,0)=-1 


ВО РОКЕ29120%8,144:2(А,14)--1 


370 D2-2X:IFZ(X2,Y2)--1THENA450 

380 POKE29088*X24Y4,191:Z(X2,Y2)-7-1 
390 RETURN 

400 ҒОКТ-1Т02555ТЕР40!РОКЕ::24999,Т 
402 X=USR( I) : NEXT 

405 P2=P2+1:FRINT@137," 
407 PRINT@204,"FLAYER 2" 


RED WINS "PRINT 


130 
133 
134 
135 
135 
136 
137 


0 IFW>OANDINKEY$="M"THENW=W-3:SOUND9,1:FOKE28863+W+3,96 

0 IFWQ4X3ANDINKEY$=","THENW=W+3:SOUND9 , 1: РОКЕ28863+0-3,96 
0 POKE28863+W,94 

0 IFINKEY$=" "THEN N=(W/3):GOTO1360 

5 GOTO1300 

0 к-(м+1)/2 

0 FORI-1TOK;J-A(I) 


85 POKE29152+A,144:Z(A,14)=-1 410 М-1:60Т0500 1380 А(І)-А(Мж1:.1):А(М41-1)-7 
90 МЕХТА 450 FORT-1TO2S5S5STEP40;POKE-24999,T 1390 NEXT:C-CO*1:PRINTG378,C 

^ 3 452 X=USR(I) : МЕХТ 1400 FORI-1TOQ 
100 FORA=1T013 1410 IFNOTI-A(I)THENGOTO!250 


110 POKE28672*4*32,144:Z(0,8)-^1 
120 POKE28703*A*32,144:Z(31,8)-7-1 


190 NEXTA 

140 Хі=2:Ү1=1:р1=1 

150 Х2=29:Ү2=13:02=7 

160 GOSUB200:IFM=1G0T060 
170 GOSUB300:IFM=1GOT060 
180 GOTO160 


200 X=PEEK(30873)-48:POKE30873,0 


455 Р1<-Р1+1 : РЕТМТе1ЗВ, "YELLOW  WINS":PRINT 

457 PRINT@204,"FLAYER 1" 

460 M=1:;GOTO500 

500 PRINT:PRINT@356," PRESS KEY TO START GAME" 
510 РОКЕЗ0873,0 

520 IFPEEK(30873)-0THENS520 

530 RETURN 

540 END 


141 
142 
150 
151 
152 
153 
154 


2 PRINT@420,"N.IN POSIZIONE ESATTA "¿I 

0 NEXT 

0 ҒОБІ-ітоа:5оимпажз,1 

О IFA(I)<10THENFRINT@158+(I#*3),A(I)ELSEPRINT@1594(I#3),"0" 
O РБІМТӨ160%(1Ж3), "Ж" NEXT 

0 IFC<10THENPRINT@260, "OTTIMO A 

0 IFG>9ANDG <20THENPRINT®260, "BUONO " 
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Software 


DI NERI E FERIOLI L. 


Censimento 


i REM CENSIMENTO BY IW2BMO 
5 CLS 


DIMA(100) 

О1МВ( 100) 

ІМС (100) 

ОМО (100) 

CLS 

PRINT OPRINTDOABOSU G E NI S 1 MENTO? 
РБІМТ: 

PRINT"SIETE INCARICATO DI EFFETTUARE UN CENSIMENTO SU DI UN" 
PRINT "CAMPIONE DI POPOLAZIONE. ":PRINT"I RISULTATI DOVRANNO" 
PRINT"ACCERTARE QUANTI INDIVIDUI":PRINT"APPARTENGONO AD OGNI" 
PRINT"FASCIA DI ETA’ DELLE QUATTRO:" 
PRINT"ANNI: DA 1 А 25 (PASCIA 1)" 
PRINT" 
PRINT" 
PRINT" 
PRINT 
PRINT"PREMI S PER INIZIARE": 
A$=INKEY$ | IFA$ <> "S"THEN76 

GOSUB1000 

FRINT"PER VEDERE ISTOGRAMMA INSERIRE 0" 


DOT 07 /М зо CEA DAS» 
D'ASTA (е) (Оле 9 
DA 76 А 99 (FASCIA 4)" 


INFUT"ETA'":N$:N-VAL(N$) 
IF N=0 THEN 2000 


IF М>-100 ОНМ<0 ОБІМТ(М)<>МТНЕМ GOSUB900:GOTO85 
F*-0:IFN»0 AND М<-25 ANDX<100THENX=X+1:A(X)=N;F%=1 


IFN> 25ANDN <=50ANDY <1 00THENY=Y+1:B(Y)=N:F%=1 


IFN>50AND N<=75ANDZ<100THEN Z=2+1:C(Z)=N:F%=1 
IFN>75 AND N<=100ANDW<100THEN W=W+1:D(W)=N:F%=1 


IFF%X=0THENGOSUB950 
IFH<XTHENH=X 
IFH<YTHENH=Y 
IFH<ZTHENH=Z 
IFH«WTHENH=W 
с0т085 


с = 


CONTINUA 





se l'elemento corrispondente 
é uguale a ZERO. 

Se tale ELEMENTO é a ZE- 
RO, il numero non é ancora 
‘uscito’, per cui l'elemento 
viene fatto diventare uguale 
al numero (diventa quindi DI- 
VERSO DA ZERO). 
Sel'ELEMENTO é DIVERSO 
DA ZERO significa che que- 
sto numero era già stato 
estratto precedentemente, 
per cui NON é un numero 
VALIDO, ed il computer pro- 
va con un altro numero. L'e- 
strazione dei numeri ë realiz- 
zata per mezzo della FUN- 
ZIONE RND cioó RANDOM 
(che significa CASUALE). 


|l. computer GENERA UN 


NUMERO PSEUDO-CASUA- 
LE, compreso tra ZERO e 1 
(cioé genera un piccolo nu- 
mero ad esempio 0.1394). 
Questo piccolo numero viene 
MOLTIPLICATO per 90, otte- 
nendo un numero compreso 
tra 0 e 89.99. 

Con la FUNZIONE INT si pre- 
leva la parte INTERA del nu- 
mero, ottenendo un numero 
compreso tra O e 89. 
Aggiungendo 1 avremo per- 
tanto un numero che sarà 
compreso tra 1 e 90, comei 
numeri dela TOMBOLA. 
Dopo aver trovato il numero, 
(RIGA 30) il computer fa il 
controllo detto sopra, per sa- 
pere se il numero generato ë 
VALIDO oppure se era già 
stato estratto (RIGA 50). Na- 
turalmente se il controllo ë ne- 
gativo si torna alla riga 30 per 
generare un altro numero. 
Superato il controllo, alla RI- 
GA 60 viene AUMENTATA di 
1 а VARIABILE X che serve 
per sapere QUANTI NUME- 
RI sono già stati estratti. (Ri- 
cordiamo che la variabile in- 
dicizzata N (90) tiene il conto 
di QUALI numeri sono usciti 
e per questo alla RIGA 70 vie- 
ne posto N (A) = A. 

Le righe da 75 a 200 servo- 
no per poter scrivere sul vi- 
deo il numero, che apparirà 
scritto in modo ‘normale’, ri- 
spetto ai numeri del tabello- 
ne che sono scritti INVERSE. 


PRINT@480, "PREMI Е PER ESTRARRE Е PER FINE": 


5 CLS : GOSUB1000 

10 DIMN(90) 

15 

30 A=INT(RND(0)X90)+1 

50 ТЕМ(А) <> ОТНЕМ 30 

60 K=X+1 

70 N(A)=A :N$-RIGHT$(STR$(A),2) 


75 B=INT(A/10) 
77 С-А-(10%В) 


80 A$="":A$=INKEY$:IFA$=""THEN80 
85 FORI=1TOS5:;Añ$=INKEY$ NEXT 


90 ІҒА%-"Е"ТНЕМ 210 


100 IFA$<>"E"THEN 80 
170 IFA/10-BTHENPRINTG (32: (B*1) *29) ,N$:GOTO190 
180 PRINT@(32+(B+2)+CX3)-1 
190 FRINT@423, "ULTIMO ESTRATTO":A:SO0UND18,2 
195 FORT-1TO200:NEXTT 
200 IF Х<9ОТНЕМЗО 


210 PRINTe423," 


N$ 


FINE DEL GIOCO 


215 FORTM=1T03!S0UND25,2:SOUND18,2:NEXT 


220 PRINTe423,"ALTRA PARTITA (S/N) 
225 R$z"";R$-INKEY$:IFR$z""THEN225 


230 IFR$="S"THEN RUN 


235 IFR$ <> "N"THEN 


240 CLS :END 


1000 С1.5: РОКЕЗО 776 
1010 PRINT"######## T O M B 


1020 PRINT"# 

1025 PRINT"# 1 
1030 PRINT"# 11 
1035 PRINT"# 21 
1040 PRINT"# 31 
1045 PRINT"# 41 
1050. PRINT"# 51 
1055 PRINT"# 61 
1060 PRINT"# 71 
1065 PRINT"# 81 
1070 PRINT"# 
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12 
Z 
32 
42 
52 
62 
1/22 
82 


= 
DEI 


, 255 


3 
13 
23 
33 
43 
53 
63 
73 
83 


4 
14 


5 
15 
25 
35 
45 
88 
65 
75 


85 


O D A 


6 
16 
26 
36 
46 
36 
66 
76 
86 


n LORO 


ВН": 

ins 
В 9 104": 
18 19 208"; 
28 29 30%"; 
38 39 404": 
48 49 50%": 
58 59 604": 
bB 69 TON": 
78 79 Вож": 
88 89 90%": 

в": 


1075 PRINT" #4 444 #44 444844 44448 44 44444444444 44444444". 


1080 POKE30776,0 


In particolare: le righe da 80 
a 100 servono per controlla- 
re se è stato premuto il tasto 
E per ESTRARRE о il tasto F 
per FINE GIOCO; le righe 
successive, fino alla riga 200 
invece scrivono AL GIUSTO 
POSTO il numero estratto, in 
base ai COEFFICIENTI Ве C 
calcolati alle righe 75 e 77. 
Infine le righe da 210 a 240 
vengono eseguite quando il 
gioco finisce, (se si decide di 


' 
П 


RETURN 


terminare premendo il tasto 
F, oppure dopo l'estrazione 
di tutti i 90 numeri del tabel- 
lone). 


Software 


DI NERI E FERIOLI 


Il gioco della tombola 


Questo gioco è molto cono- 
sciuto in Italia e nel mondo, 
ma spieghiamo ugualmente 
come si gioca, per poter 
commentare il listato del pro- 
gramma e capire come рид 
essere impostato e risolto un 
semplice problema, grazie al 
computer. 

Il gioco della tombola viene 
giocato con l'ausilio dei se- 
guenti "strumenti": 

1 CARTELLONE CHE RI. 
PORTA I NUMERI DA 1 a 90 
1 SACCHETTO CHE CON- 
TIENE 90 PEDINE NUME- 
RATE DA 1 a 90 

UN CERTO NUMERO DI 
CARTELLINE CHE SOLITA- 
MENTE HANNO STAMPA- 
TO 15 NUMERI CASUAL- 
MENTE SCELTI, ed anche 
tali numeri sono compresi tra 
1 e 90. 

NUMEROSI 'SEGNALINI' a 
disposizione dei giocatori, 
per contrassegnare i numeri 
usciti delle proprie cartelline. 
Di solito si usano come se- 
gnalini fagioli secchi o botto- 
ni, o qualsiasi cosa facilmen- 
te reperibile in casa. 


Lo svolgimento del gioco é il 
seguente: 

dopo la distribuzione delle 
cartelline tra i giocatori (soli- 
tamente molto numerosi), 
una persona che tiene il 
BANCO estrae dal sacchetto 
le pedine numerate, una alla 
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volta, scandendo a voce alta 
il numero uscito. 

Tutti i giocatori che hanno ta- 
le numero su una o più car- 
telline, lo contrassegnano 
con gli appositi segnalini. La 
pedina estratta invece viene 
messa sul tabellone numera- 
to sopra al numero corrispon- 
dente. 

E possibile vincere con le se- 
guenti combinazioni: 
TERNO cioé 3 numeri su una 
stessa fila 

QUATERNA cioé 4 numeri su 
una stessa fila 

CINQUINA cioé 5 numeri su 
una stessa fila 

TOMBOLA cioé TUTTI i nu- 
meri di una cartellina. 
Vince il giocatore che per pri- 
mo realizza una delle combi- 
nazioni di cui sopra, anche se 
è possibile stabilire più di un 
premio per ogni combinazio- 
ne. 


Nel realizzare il programma 
in BASIC per il computer 
LASER abbiamo dovuto fare 
alcune considerazioni di ca- 
rattere filosofico, per quanto 
riguarda il gioco in generale. 
In poche parole: il gioco del- 
la TOMBOLA è molto diver- 
tente se viene giocato in fa- 
miglia, o tra amici, e una del- 
le componenti del divertimen- 
to è proprio l’estrazione dei 
numeri, e la confusione che 
solitamente avviene ad ogni 


estrazione, con esclamazioni 
di gioia o di disappunto, urla 
e risate etc. 

Togliere queste caratteristi- 
che per volere a tutti i costi 
dare una veste di modernità 
al gioco, con la scusa di uti- 
lizzare il computer, significa- 
va distruggere lo spirito di co- 
munità e serenità che il gio- 
co stesso ispira. 

Un bravo programmatore de- 
ve anche saper ANALIZZA- 
RE un problema, per OSSER- 
VARLO in TUTTI i suoi aspet- 
ti, valorizzando i pregi e pos- 
sibilmente eliminando i difetti. 
Il gioco della TOMBOLA, a 
detta di molti, un difetto ce 
l'ha e consiste in questo: 


LA PERSONA CHE Е СО- 
STRETTA AD ESTRARRE | 
NUMERI, NON PUÒ PARTE- 
CIPARE CON GLI ALTRI AL 
GIOCO, SE NON DIVIDEN- 
DOSI TRA IL SACCHETTO 
DELLE ESTRAZIONI, IL 
CARTELLONE, E LE PRO- 
PRIE CARTELLINE, DIVER- 
TENDOSI POCO A CAUSA 
DELLE INCOMBENZE. 


Ecco trovato un aspetto del 
gioco che poteva essere mi- 
gliorato grazie al nostro ami- 
co computer. 

Abbiamo quindi pensato di 
realizzare un TABELLONE 
sul video, e di assegnare al 
computer il compito di ese- 
guire le estrazioni dei nume- 


3 
3 
3 
9 
3 
9 
з 7 
EJ 





ri, segnando i numeri usciti 
sul tabellone, annunciando 
anche le estrazioni. 

Il listato del programma BA- 
SIC allegato risolve questo 
semplice problema, ed ora 
vedremo anche come. 

Per prima cosa era necessa- 
rio rispettare una certa ESTE- 
TICA del gioco, per cui è sta- 
ta scritta la SUBROUTINE 
che va da RIGA 1000 a RIGA 
1080 e che mette sul video il 
TABELLONE con i numeri da 
1 a 90. 

Poi occorreva pensare a co- 
me far estrarre i numeri, ma 
soprattutto a come fare рег 
far RICORDARE al computer 
se un certo numero era già 
stato estratto, o no. 
Abbiamo pensato di proce- 
dere nel seguente modo: al- 
la RIGA 10 viene dimensiona- 
tala VARIABILE INDICIZZA- 
TA N (90) cioé una variabile 
costituita da 90 ELEMENTI. 
Quando un numero viene 
estratto il computer controlla 


PRINTe416,"NUMERI INTERI TRA і E 100 num 
FORTM=1T03:S0UND25,2:S0UND18,2:NEXT 
FRINT@416," " 
RETURN 

PRINT@448," MAX.100 VALORI PER FASCIA " 
FORTM=1T03:5S0UND25,2:S0UND18,2:NEXT 
RETURN 

51=0:52=0:53=0:54=0: IFX=0THEN1020 
FORM=1TOX 

S1=S1+A(M) 

NEXT М :SX-2INT(8S1/X) 

IFY=0THEN1040 

FORMz1TOY 

S2=S2+B(M) 

NEXT М :SY=INT(52/Y) 

IFZ-OTHEN1060 

FORM-1TOZ 

53-53%С(М) 

NEXT M:Sz=INT(5S3/2) 

IFWZOTHEN1076 

FORM= 1 TOW 

S4=54+D(M) 

NEXT М :SW=INT(54/W) 

T=X+Y+Z+W! IFTZOTHEN1080 
SS=INT((51+52+53+5S4)/T) 

CLS PRINT PRINDCCABCO AG SE NES II MOE SN ТО ЕКЕНТ 
PRIN TARTSULTAT i 

PRINT" FASCIA М.НО ETA’ MEDIA " 


PRINT o t-25 ERONI ",5Х 
PRINT" 26-50 uuo ens Еф 
PRINT 51-102 ун "S2 
BRUN DOEI, Шашын "SW 

PRIND TOTALT E ERT "; 55: РЕТНТ 
PRINT 

RETURN 


CLS:T$=GHR$(133):T2%$(0)=T$;T2%(1)=GHR$ (128) 
IFH>16THENH=INT(H/16)+1ELSEH=1 
PRINTTAB(t(10)"STATISTICA": PRINT: PRINT:PRINTTAB(2)T$ 
К=1: IFX-OTHENK-O 

FORJ=0TO( X/H) i PRINTTAB(2)T2$ CK): I NEXT: PRINTX" (1-25) " 
К=1:РКІМТТАВ (2) ТФ: IPYZOTHENK-O 

FORJ=0TO(Y/H) : PRINTTAB(2) T2$ CK) 2 i NEXT: РЕТМТУ" (22-50) " 
Kz1:PRINTTAB(2)T$: IFZ=0THENK=0 

FORJZOTO(CZ/H) : PRINTTAB(2)T2$((K): : NEXT; PRINTZ"(851-75)" 
K={ :PRINTTAB(2)T$: IFW=0THENK=0 
FORJ=0T0(W/H):PRINTTAB(2)T2$(K)::NEXT:PRINTY"(76-100)" 
PRINTTAB(2)T$:FRINTTAB(2)T$ 

Ti$=CHR$(131) 

FORA=418 TO 444:PRINT@A,T1$ NEXT 

PRINT@448," F = FINE C = CONTINUA": 
А%-ІМКЕҮ%:ІҒА%-""ТНЕМЗ010 

IFA$="C"THEN85 

IFA$ <> "F"THEN3010 

CLS: END 
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E Il Laser nascosto 


TESTI E LISTATI DI E. NOSEDA E B. POTITO 





Come usare 
grafica e Joystick 





Il listato che vi proponiamo 
vi permetterà di usare la 
grafica 

del vostro computer LASER 
310 per realizzare un gioco 
che possa funzionare sia con 
comandi dalla tastiera, sia 
con comandi attraverso i 
JOYSTICKS. 

La caratteristica principale di 
questo programma, abilmente 
realizzato da un nostro colla- 
boratore di Como, ë il MODO 
in cui ë stato scritto, perché 
con questo programma po- 
trete sfruttare l'enorme velo- 
cità del LINGUAGGIO MAC- 
CHINA, per realizzare nuovi 
e divertenti giochi. 

Dovrete solamente lasciare li- 
bero sfogo alla vostra fanta- 
sia, per studiare nuove imma- 
gini, disegnandole nel modo 
che ora vi spiegheremo. 

II programma, е quasi total- 
mente in linguaggio macchi- 
na, ed é stato scritto in BASIC 
con l'ausilio delle istruzioni 
DATA. 

Le diverse parti del program- 
ma sono ben commentate 
con le opportune REM, per 
cui il loro uso ë facilmente 
comprensibile. 

FATE MOLTA ATTENZIONE 
A DIGITARE | NUMERI, E 
PRIMA DI DARE IL COMAN- 
DO RUN SALVATE IL PRO- 
GRAMMA SU NASTRO O ОЕ 
SCO, PERCHE IL LINGUAG- 
GIO MACCHINA E MOLTO 
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VELOCE, ma se per caso 
avete sbagliato a digitare 
qualche numero, il computer 
potrebbe BLOCCARSI, per- 
dendo cosi TUTTO il VO- 
STRO LAVORO. 

Se il computer si blocca, ma 
voi avete salvato il program- 
ma, potete tranquillamente 
spegnere il computer e riac- 
cenderlo, e poi tornare a CA- 
RICARE da nastro il pro- 
gramma salvato, ed esegui- 
re i necessari controlli e le in- 
dispensabili correzioni. 

La parte piü curiosa ë nel 
blocco di righe da 600 a 700 
in cui viene richiesto di inse- 
rire i DATI dello SPRITE che 
devono essere 28 numeri 
compresi tra O e 255. 
Questi 28 numeri permettono 
di definire un disegno a vo- 
stro piacere, purché rispettia- 
te la tabella allegata che for- 
nisce per ogni numero da 0 
a 255 una COMBINAZIONE 
di COLORI e di punti ACCE- 
SI o SPENTI (pag. 18). 

Ad ESEMPIO: il codice 33 ri- 
porta la scritta + P + V che si- 
оп са che di quattro punti 
soltanto 2 sono accesi, uno 
BLU (indicato con P) ed uno 
GIALLO (indicato con V). 

Il segno + (PIU) sta ad indi- 
care un PUNTO che 6 
SPENTO. 

| COLORI SELEZIONABILI 
cambiano come indicato in 
tabella, per le varianti CO- 


VALORI DECIMALI 

















































BYTE 1 BYTE 2 BYTE 3 
@ 20 @ 
1 85 
2 215 
3 
4 
5 
6 
7 
COLOR X, 1 COLOR X, @ 
V = VERDE V - GIALLO 
P - PORPORA P = BLU 
A - ARANCIO A = ROSSO 
+ = (SFONDO) = BIANCO + = (SFONDO) = VERDE 








BYTE 3 

















II video 


II collegamento con il video si 
effettua mediante apposito 
cavetto coassiale fornito in 
corredo al computer. 

Sotto la tastiera esistono due 
interruttori: il primo serve per 
commutare il colore in bian- 
co/nero (C B/W), il secondo 
per scegliere tra due diverse 
bande di sintonia (CH3 - 
СНА). 

Lo schermo è organizzato in 
16 righe da 32 colonne per 
un totale di 512 caratteri. 
Usando la grafica ad alta ri- 
soluzione, invece, si può di- 
sporre di una matrice di 
128 x64 punti, per comples- 
sivi 8192 pixels. 


Software di base 


II Sistema Operativo, basato 
su microprocessore Z 80, 
mette a disposizione imme- 
diatamente il BASIC V2.0 del- 
la Video Technology. 

Si tratta di una versione este- 
sa del BASIC standard, am- 
pliato con istruzioni evolute 
per la gestione del suono e 
della grafica in alta risoluzio- 
ne. In particolare si hanno a 
disposizione: 

— 5 operatori matematici, 6 
relazionali, 3 logici 

— variabili numeriche reali, 
intere, alfanumeriche sempli- 
ci e indicizzate a una o più di- 
mensioni 

— 11 funzioni matematiche, 
10 funzioni alfanumeriche 
— 6 funzioni grafiche e una 
per la gestione del suono 
— 19 istruzioni e 11 comandi 
— 8 funzioni e istruzioni spe- 
ciali tra cui PEEK e POKE ed 
una interessante funzione 
COPY che permette la copia 
immediata dello schermo su 
carta (HARD COPY)!!! 
Complessivamente si hanno 
80 possibilità per la program- 
mazione in Basic, con la co- 
struzione di frasi anche com- 
plesse quali IF... THEN... EL- 
SE. 

Sono infine disponibili istru- 
zioni evolute quali PRINT 


À 

d "a 

NECS 
5 


(PRINT AT), PRINT USING, 
LLIST ed LPRINT che com- 
puter più costosi non hanno, 
oltre alle istruzioni per la ge- 
stione di FILES su nastro 
PRINT e INPUT. 

Con il FLOPPY DRIVE il set 
di istruzioni aumenta, consen- 
tendo una comoda gestione 
dei dischi, su cui é possibile 
archiviare programmi e files 
dati. 

La stesura di programmi ë 
molto facilitata, grazie alle 
istruzioni predefinite, ed an- 


che grazie all'EDITOR a tut- 


to schermo. 

II software di base inoltre con- 
templa 23 messaggi di erro- 
re, che aiutano l'utente nella 
stesura ed esecuzione dei 
programmi, o delle singole 
istruzioni. 


Conclusioni 


Come detto in apertura, ogni 


HOME-COMPUTER in com- 
mercio ha caratteristiche di- 
verse, alcune delle quali pos- 
sono piacere ed altre meno. 
Questo tipo di valutazione ë 
strettamente legata all'utente, 
e pertanto decisamente sog- 
gettiva. 

Per il LASER 310 segnalia- 
mo, a nostro parere, alcuni 
aspetti: 

— || manuale in dotazione ë 
in lingua tedesca, e questo 
crea in genere notevole diffi- 
coltà. Esiste comunque la tra- 
duzione ad opera della 
Scheidegger di Como. 

— il segnalatore acustico dei 
tasti, anche se utile, ë un po' 
fastidioso, specie quando si 
usa il computer per lungo 
tempo. Si puo tuttavia disin- 
serire (Poke 30779,0) o riatti- 
vare (Poke 30779,32) a pia- 
cere. 

— il DISK DRIVE é in grado 
di gestie FILES SEQUEN- 





ZIALI, e per poter utilizzare 
FILES RANDOM à necessa- 
rio fare qualche sforzo in più 
nella programmazione. 
L'aspetto che ci ha colpiti fa- 
vorevolmente é la velocità 
che il LASER 310 ha nell'ese- 
guire le operazioni, sia per 
quanto riguarda le istruzioni, 
sia per quanto riguarda le co- 
municazioni con le periferi- 
che. Inoltre il set di istruzioni 
ë decisamente ampio e vali- 
do. 

In conclusione, ci sembra 
che il computer LASER 310 
sia particolarmente adatto a 
tutte quelle persone che, de- 
siderando avvicinarsi all'infor- 
matica, cercano contempora- 
neamente un prodotto valido 
e di costo contenuto, ossia 
con un buon rapporto quali- 
tativo tra prestazioni e prezzo. 
E sembra che il Laser 310 
abbia entrambe le caratteristi- 
che. 


o Informazioni 


НАММО COLLABORATO С. VENTURINI - 


E. NOSEDA - B. POTITO 


II “sistema” LASER 310 


Il Color computer LASER 310 
appartiene alla nutrita schie- 
ra di HOME-COMPUTER. 
Esistono decine di modelli di 
Home-computer, e non é 
possibile stabilire quale sia il 
migliore, in quanto ognuno 
ha caratteristiche proprie, dif- 
ficilmente comparabili. 

E possibile fare una valutazio- 
ne del'HARDWARE е del 
SOFTWARE, rapportando 
eventualmente tali prestazio- 
ni al costo del computer, qua- 
lificandolo sotto il profilo 
PREZZO/PRESTAZIONI. 


310 offre all'utente ben 237 
possibili funzioni, distribuite 
sui 46 tasti. Ogni tasto ha la 
ripetizione automatica ed un 
segnalatore acustico che av- 
visa dell'avvenuta pressione. 
Le funzioni svolte dai tasti so- 
no molto ben evidenziate con 
opportune scritte, e non la- 
sciano alcun dubbio di inter- 
pretazione. In dotazione al 
computer c'é anche un car- 
toncino con la scritta KEY- 


BOARD LAYOUT illustrante 
le funzioni che non ë stato 
possibile scrivere sui tasti per 
ovvi motivi di spazio. 


La CPU 


Incorporata nella tastiera, su 
apposita basetta, troviamo: 
la R.O.M. di 18 KBytes 
la R. A.M. di 16 KBytes 
il generatore di suoni 


piezo-elettrico 

il segnalatore 
accensione 

le porte I/O per registratore a 
cassette, espansione di me- 
moria fino a 64 KBytes, stam- 
pante, penna ottica, joysticks, 
televisore, monitor, oltre alla 
porta per il Floppy Disk Drive. 
Gli ingressi per i vari disposi- 
tivi sono ben evidenziati, ed 
è pertanto impossibile sba- 
gliare i collegamenti. 


Led а! 


~ x, 0 oppure COLOR X, 


ca dovete fare per dise- 
gnare? 

E molto semplice: preparate 
una griglia di 12 x 8 quadret- 
ti e realizzate il vostro dise- 
gno, colorando con i colori 
ammessi dalla tabella. 
Quando il vostro disegno è 
completo potrete ricavare i 
valori numerici da inserire nel 
programma quando vi verrà 


10 БЕМЖЖЖЖЖЖ ЖЖ ЖҰЖ ҰЗ ЖЖЖ ЖЖЖ dob 
20 БЕМЖЕБЕМРІО DI FIGURA IN 
30 БЕМЖЖЖЖЖЖЖЖЖЖ Ж kg dopo A 
dod 
50. 


90 БЕМЖЖЖЖЖЖЖЖҰҰҰЖЖЖҰАЖЖАЖЖЖЖЖЖЖЖ 
92 REMEDATI CTRL 7015ТҮСК 1% 
94 ЦЕНО MEC IN ESCLUSA 
БЕЙНЕЛЕСЕ 
100 НЕМЖЖЖ MOV. ін SU: ЖЖЖ 
IRE ЕЕ 
110 DATA42,16,155,17,32,0,219, 





richiesto. 

Abbiamo preparato per voi il 
disegno di un'astronave, CO- 
me potete vedere. Inserite i 
numeri che abbiamo calcola- 
to e potrete far muovere lo 
SPRITE sul video, sia usando 
la tastiera, sia usando i JOY- 
STICK. 

Se usate la tastiera, i tasti di 
movimento sono GLI STESSI 
che si usano per muovere il 
cursore, ma non è necessa- 


43,254,62,194,153,154 


120 DATA43,43,43,43,43,43,43,43,43,43,43,43,43,43,43, 43 
130 DATA43,43,43,43,43,43,43,43,43,43,43,43,43,43,43,43 


140 DATA34,16,155,195, 15,155. 
149 КЕМ-------- 
150 ВЕМЖЖЖ MOV.IN GIU” xxx 


170 БЕМЖЖЖ MOV.A DESTRA ЖЖЖ 
БЕМ n Ее 222. 
180 DATA254,55,194,187,154,35 
189 БЕМ---------------------- 
190 БЕМЖЖЖМОУ.А SINISTRA ЖЖЖ 


200 DATA254,59,194,199,154,43 
202 НЕМЖЖЖЖЕЖЕЖЕЖЕЖЖЖЖЖЖЖЖЖЖЖ 
204 REMXFINE DATI JOISTYCK 1Ж 
206 HOUR TEX Аалы 
208 REM 
210 ВЕмжжжззсжаноскжаанюежжик 





,34,16,155,195,15,155 


,34,16,155,195,15,155 


134,16,155,195,15,155 


rio premere il tasto CTRL. 


BUON DIVERTIMENTO A 
TUTTI!!! 


326 
330 
333 
335 


REMEE EEE E E EEE EEEE EAE E 
REMX*XDATI PER CANCELLARE # 
REM+*DISEGNO жж 
БЕМЖЖЖЖЕЖЖЖЖЖЖЕЖЖЕЖЖЖЖЖЖЖЖ 


338 ' 


340 
345 
350 
360 
370 
380 
390 
400 
410 
420 
422 
424 
426 
428 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


DATA42,207,155 
ПАТА54,0,35,54,0,35,54,0,25 
DATA54,0,43,54,0,43,54,0,25 
DATAS4,0,35,54,0,35,54,0,25 
DATAS4,0,43,54,0,43,54,0,25 
рАТА54,0,35,54,0,35,54,0,25 
DATA54,0,43,54,0,43,54,0,25 
DATA54,0,35,54,0,35,54,0,25 
DATA54,0,43,54,0,43,54,0,25 
DATA42,16,155,34,207,155 
ВЕМЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
БЕМЖЖ DATI PREPARAZIONE ЖЖ 
БЕМЖЖ SPRITE жж 
НЕМЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


DATA54,0,35,54,0,35,54,0,43,43, 


25 


DATA54,0,35,54,0,35,54,0,43,43,25 
DATA54,0,35,54,0,35,54,0,43,43,25 
ПАТА54,0,35,54,0,35,54,0,43,43,25 
DATA54,0,35,54,0,35,54,0,43,43,25 
БАТА54,0,35,54,0,35,54,0,43,43,25 
DATA54,0,35,54,0,35,54,0,43,43,25 
DATA54,0,35,54,0,35,54,0,43,43,25 
DATA33,48,166,00,000,000,00,0,201 


НЕМЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
БЕМЖЖ COLLOCA I DATI ІМ ЖЖ 
ВЕМЖЖ MEMORIA жж 
КЕМЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 









Vediamo ora quali sono le ca- 220 НЕМЖПАТ CTRL TASTIERA ** 560 FORA=26000T025642STEP-1 
ratteristiche del LASER 310: аре SES RT 570 READL:POKE-A,L 
За PE MOV. IN SU” Ce) Ж 600 CLS:PRINT" ЖЖЖЖ" 
2 I teca Dia атои 610 PRINT" ЖЖ INSERIMENTO DATI жж" 
А 240 ПАТАЗЗ, 153, 120,126,254,46,194,217,154,42,16,155,17,32,0 ^ 420 PRINT" ЖЖ PER SPRITE МАХ 28 ЖЖ" 
La tastiera 2s BEI asas d 630 PRINT" ЖЖЖ ЖЖ Ж Ж Ж ЖЖЖ 
5 Gc xn E MC UE E 640 S=1:FORI=25737T025653STEP-3 
É una standard QWERTY 244 SI 258 PRIZE ТІНІН 
con 46 tasti, la maggior par- SI RI A G аларда да AR аты 660 POKE-I,D:B-B*10.6667:8-8*1 
te dei quali svolge più funzio- A Е EL с 670 NEXT 
SII 4 25 675 ” 
ni. In dettaglio, si hanno a di- DIA VO ИВЕЛИН oli 680 ВЕМЖЖЖЖЖА ЖЖЖ ЖЖЖ ЖҰЖ ЖҰЖ 
sposizione: COCO ia ақта sss s S 685 НЕМЖЖ FINE DATI ӨРБІТЕ XX 
: ZUONDATASSPISJA1200240254»24-194 0959715494216 155, (792, 0 АВС E ТЕСТІН 
63 CARATTERI ALFANUME- 201 DATA195,180,154 255 
262 БЕМ- Temm 
eS 
RICI 244 REMK MOV.A SINISTRA (M) 3 Ша ; 
16 CARATTERI GRAFICI 266 БЕМ--<-----:--------.--.- 710 ‘ESECUZIONE DEL PROGRAMMA 
; m A 270 DATA33, 153,120,126,2 54, 77,194,15,155,42,16,155,17,32,0 RA 
bil h 715 
(tutti rappresentabili anche in БА STU VIGOR COE ET 7 
modo 'inverso') 280 БЕМЖЖЖЖЖЖҰ ЖҰЖ Ж Ж ЖЖ ЖҰЖ ДЕ ^ESEMPIO : 
; РӘТ ; a 282 НЕМЖ FINE DATI TASTIERA X PNA 
69 istruzioni, comandi, funzio 284 НЕМЖЖУЖЖЕЖЖЖЖУЖЖАЖЕЖЕЖЖ Дол ОҚА E оре ya ASTE 
ni ес. BASIC рге-ргодгат- 286 ' Пе 
i ; 288 ' à з nada ` 
mate е immediatamente Све rivali 810 РОКЕЗ0846,112:РОКЕЗ0847,154 
а bil 820 MODE(1):POKE30845,195 
isponibili 302 REMY DATI PER OFF LIMIT % 830 сотовзо 
7 tasti рег l'editing 252 REPE ЖЖЖ Ж ЖЖ ЖЖЖ ОТ Е 
; ; 842 REM C 
3 tasti per la selezione delle i m 310 ПАТАЗЗ,48,116,17,32,0 900 'CON ER SPRITE ON 
funzioni, con il tasto SHIFT ! i 320 DATA124,254,111,194,31,155,25,34,16,155 910 “СОМ POKE 30845,201 SPRITE 00F 
: 322 DATA124,254,119,202,125,154 CON 
presente su due lati. sani e E бі 


In totale la tastiera del LASER 


оо моол — Q) N — 


SFONDO VERDE 





A = ARANCIONE 
P = PORPORA 
V = VERDE 


SFONDO BIANCO 





Colore 


Verde 
Giallo 
Blu 
Rosso 
Buff 
Violetto 
Magenta 
Arancio 


1 
2 
Š 
4 
5 
6 
7 
8 


МЕМОНА 

ТЕЗТО INIZ. 28672 
TESTO FINE 29152 
GRAF. INIZ. 28672 
GRAF. FINE 30719 








I caratteri 


grafici 


nei listati 





Quanto è stato detto per i ca- 
ratteri INVERSE vale anche 
per i caratteri GRAFICI del 
computer LASER. 

Soltanto alcune stampanti so- 
no in grado di riprodurre nel 
listato di un programma i CA- 
RATTERI GRAFICI. 

Come fare per poter listare un 
programma senza alcun in- 
conveniente ? 

La soluzione è MOLTO SEM- 
PLICE!! 


аге\“ 


Il manuale del vostro compu- 
ter riporta il valore dei CODI- 
CI ASCII di tutti i caratteri, è 
pertanto possibile usare tali 
valori al posto del relativo 
simbolo. 

Ad alcuni potrà sembrare un 
lavoro faticoso o poco utile 
dover convertire tutti i segni 
grafici nell'equivalente CHR$, 
ma Vi preghiamo di credere 
che dopo brevi esercitazioni 
iniziali, avrete la soddisfazio- 


ost 
а ұсол09 


пе di operare molto più age- 
volmente, ed i vostri pro- 
grammi avranno una veste 
più PROFESSIONALE. 

A questo proposito ricordia- 
mo che la Vostra rivista LA- 
SER computer CLUB potrà 
PUBBLICARE | VOSTRI 
PROGRAMMI, ed é pertanto 
indispensabile che nel listato 
dei programmi che invierete 
NON COMPAIANO né i ca- 
ratteri INVERSE, né i segni 
GRAFICI, in quanto la ripro- 
duzione dei listati sulla rivista 
potrebbe creare delle difficol- 
tà per i lettori nell'interpreta- 
re il GIUSTO carattere. 
Potrete trovare alcuni esem- 
pi nei listati che compaiono in 
questo numero, per verifica- 
re come essi siano stati scritti 
affinché TUTTI possano digi- 
tarli senza problemi. 
Riportiamo un esempio, ricor- 
dando che tutti i valori dei 
CODICI ASCII sono riportati 
sul manuale del Vostro com- 
puter: 

Il segno grafico QUADRATO 
INVERSO che si ottiene pre- 
mendo il tasto SHIFT insieme 
al tasto Z ha il codice CHRS 


(128) per cui al posto di tale 
segno grafico scrivete CHRS 
(128); per verifica provate a 
scrivere PRINT CHRS(128) e 
vedrete che il computer scri- 
мега il carattere relativo sul vi- 
deo. 

Correggendo in tal senso i 
Vostri programmi e corredan- 
doli delle opportune SPIEGA- 
ZIONI e COMMENTI, sarà 
molto probabile che tali pro- 
grammi vengano PUBBLI- 
CATI sulla Vostra RIVISTA, 
con soddisfazione Vostra e di 
tutti i lettori di LASER compu- 
ter CLUB. 








Trucchi regole e consigli 





DI E. NOSEDA 


Peek e Poke 


Come attivare e disattivare 


II modo inverse 





La maggior parte degli 
HOME-COMPUTER dispone 
dei CARATTERI INVERSE, 
cioé di caratteri scritti in nega- 
tivo. 

Molto spesso chi scrive pro- 
grammi desidera evidenziare 
le scritte, usando appunto la 
scrittura INVERSE. 

Con i computer LASER ë suf- 
ficiente premere il tasto CTRL 
assieme al tasto di INVERSE, 
per poter scrivere ciò che si 
vuole in negativo. 

Questa possibilità è veramen- 
te comoda da usare, ma 
spesso si desidera evidenzia- 
re NON SOLO le scritte di pa- 
role racchiuse tra virgolette, 
ma ANCHE i numeri, oppu- 
re si vorrebbe usare l'INVER- 
SE durante la fase di INPUT 
di dati ALFANUMERICI. 
Inoltre soltanto alcune stam- 
panti sono in grado di ripro- 
durre i caratteri INVERSE, 
mentre la maggior parte del- 
le stampanti o PLOTTER va 
in “TILT” quando incontra in 
un listato un carattere INVER- 
SE. 

Questo significa che per po- 
ter avere il listato di un pro- 
gramma, per mezzo di una 
stampante qualsiasi, ë neces- 
sario correggere il program- 
ma stesso, eliminando TUT- 
TI i caratteri INVERSE che 
compaiono nel listato. 

Con i computer LASER é 
possibile usare i caratteri IN- 


2 


VERSE quando si desidera, 
senza avere alcun inconve- 
niente. 

Questa possibilità è data dal- 
la LOCAZIONE DI MEMO- 
RIA 30776 (DECIMALE). 
Quando si accende il compu- 
ter la LOCAZIONE 30776 
(DECIMALE) contiene il valo- 
re decimale 40 ed è possibi- 
le verificare con l'istruzione: 
PRINT PEEK (30776). 

Il computer risponderà con il 
valore 40 come detto sopra. 
Se ora proviamo a modifica- 
re tale valore con l'istruzione: 
POKE 30776,42 (attivando il 
BIT 1 della locazione) potre- 
mo constatare che il compu- 
ter scrive in modo INVERSE 
ogni cosa, compreso il mes- 
saggio READY. 

Il valore di DEFAULT, cioé 40 
viene ripristinato ogni volta 
che si verifica un errore, e ad 
ogni pressione del tasto RE- 
TURN, oppure é possibile ri- 
pristinarlo con l'istruzione PO- 
KE 30776,40. 

Per attivare il modo INVERSE 
è possibile usare qualsiasi va- 
lore che ACCENDA IL ВП 1 
della locazione 30776 per cui 
anche l'istruzione POKE 
30776,255 abilita il modo IN- 
VERSE in quanto ACCENDE 
TUTTI i BIT di tale locazione 
di memoria. 

Lo stesso vale per quando si 
vuole DISATTIVARE il modo 
INVERSE, cioé è possibile in- 


serire un valore qualsiasi che 
SPENGA il BIT 1. 
Ecco un piccolo esempio: 


10 CLS 

20 INPUT ‘INSERIRE UN 
NUMERO”; N 

30 POKE 30776,255: PRINT 
“SCRIVO”; М; "INVERSE" 

40 POKE 30776,0 

50 PRINT “SCRIVO”; N; “IN 
MODO NORMALE" 

60 END 


Questo modo di operare vi 
consentirà di ELIMINARE dai 
listati TUTTE le scritte INVER- 
SE, consentendovi di poterle 
stampare senza inconvenien- 
ti con qualsiasi stampante o 
plotter. 

La LOCAZIONE 30779 (DE- 
CIMALE) invece controlla il 
SUONO. Digitando: POKE 
30779,32 si ABILITA il suono 
ed il BEEP della tastiera, 
mentre con POKE 30779,0 lo 
si DISABILITA. 

Digitando: POKE 30779,9 si 
ABILITA il SUONO e si CAN- 
CELLA contemporaneamen- 
te il CONTENUTO DELLO 
SCHERMO. 


La numerazione 
automatica delle righe: 


Con il computer LASER è 
possibile ottenere la numera- 
zione automatica delle righe 
di programma, procedendo 
come spiegato qui di segui- 
to: supponiamo di voler inizia- 
re dalla riga 1000 e di voler 
numerare le righe di 10 іп 10. 
Per prima cosa si inserisce 
nelle LOCAZIONI 30946 (DE- 
CIMALE) e 30947 (DECIMA- 
LE) il NUMERO DI RIGA DI 
PARTENZA. 

Se questo numero è maggio- 
re di 255 (come nel nostro ca- 
so), è necessario dividere per 
256 il numero di riga di par- 
tenza inserire nella LOCA- 
ZIONE 30946 il RESTO della 
divisione, e nella LOCAZIO- 
NE 30947 il quoziente. 

Nel nostro esempio avremo: 
RIGA DI PARTENZA = 1000 
1000 DIVISO 256 = 3 con il 


RESTO di 232 
QUINDI: POKE 30946,232 
POKE 30947,3 
Se il numero di riga di parten- 
za è MINORE DI 256 invece 
è sufficiente inserirlo nella LO- 
CAZIONE 30946, mettendo a 
ZERO la LOCAZIONE 
30947. 
Le LOCAZIONI 30948 e 
30949 invece servono per in- 
dicare l'incremento e nel no- 
stro caso avremo POKE 
30948,10 (10 è il valore del- 
l'incremento che abbiamo 
prescelto) poiché l’incremen- 
to prescelto è minore di 256 
la LOCAZIONE 30949 deve 
essere messa a ZERO, digi- 
tando: POKE 30949,0 
Ora non resta che attivare la 
NUMERAZIONE AUTOMA- 
TICA digitando: POKE 
30945,255 
A questo punto possiamo ini- 
ziare il nostro programma, 
scrivendo la riga 1000 (RIGA 
DI PARTENZA). 
Dopo aver premuto il tasto 
RETURN (o ENTER) potremo 
constatare che il LASER ci 
proporrà AUTOMATICA- 
MENTE la riga SUCCESSI- 
VA, cioé la RIGA 1010 come 
avevamo scelto. 
Per DISATTIVARE: POKE 
30945,0 





Dicembre 1985 Anno М.0 
Bimestrale Lire 3.000 





...Collaborare per crescere INSIEME! 


La VOSTRA rivista LASER computer CLUB è una realtà, e per questo ringraziamo tutte le persone che hanno contribuito alla 
realizzazione di questo NUMERO ZERO, sollecitandone, con insistenza la pubblicazione, e la diffusione. 

È nostra intenzione rispettare i desideri di chi vuole avere un mezzo per comunicare idee, ricevere informazioni, o dare consigli. 
Per tale motivo vi chiediamo cortesemente di collaborare in PRIMA PERSONA alla realizzazione dei prossimi numeri di LASER 
computer CLUB, informandoci riguardo i Vostri desideri e le Vostre aspettative, per avere una rivista che sia realmente lo specchio dei 
suoi lettori. 

Abbiamo predisposto un questionario che vi preghiamo di compilare con molta cura ed attenzione, perché ci permetterà in futuro di 
ricambiare la Vostra cortesia dandovi l'opportunità di essere i protagonisti della Vostra rivista. 

Il compenso per questa Vostra collaborazione sarà evidente fin dal prossimo numero, in quanto potrete constatare di persona il livello di 
qualità che la rivista raggiungerà grazie al vostro contributo. 

In particolare chi invierà il questionario compilato e sottoscriverà contemporaneamente l'abbonamento a 6 numeri della rivista, verrà 
premiato con un numero gratis. 

Terremo conto di ogni Vostro consiglio, per cui se volete aggiungere proposte o consigli che noi non abbiamo contemplato, vi saremo 
grati. 


Compilate il questionario SUBITO e speditelo al più presto a: 


LASER computer CLUB c/o ARCA s.a.s. 
Via Valleggio, 2 
22100 - COMO 


Quale computer possiedi? 



























































LJ LASER 110 О LASER 210 O LASER 310 ALTRO: etos dia butter ERRARE npud E 
Quali periferiche possiedi? 

L] REGISTRATORE ГІ DISK DRIVE PLOTTER STAMPANTE JOYSTICK 

L] PENNA OTTICA PANI ———M—Á——— NESSUNA 








Quale periferica vorresti acquistare? 
Senti il desiderio o la necessità di cambiare il computer che possiedi per passare ad un altro computer? 
O NO SI 

Pensi di conoscere le caratteristiche del computer che possiedi? 

LJ MOLTO BENE О VORREI SAPERNE DI PIÙ 

Preferisci usare il computer per: 

O GIOCARE CON VIDEOGAMES O DIGITARE LISTATI DI PROGRAMMI SCRITTI DA ALTRI 

FARE PROGRAMMI NUOVI PER RISOLVERE | TUOI PROBLEMI 

UTILIZZARE PROGRAMMI SCRITTI DA ALTRI E GIÀ PRONTI SU CASSETTA 


Quali programmi ti interessano maggiormente? 




































































ГІ GIOCHI DI ABILITÀ О GIOCHI DI STRATEGIA 

О BILANCIO FAMILIARE О BIORITMI О DIETA 
ГІ ELABORAZIONE TESTI О ARCHIVIO PERSONALE DI DATI 
O GESTIONE CONTO CORRENTE (1 AGENDA TELEFONICA 


O MENÚ SETTIMANALE ELABORATO SULLA BASE DEGLI ALIMENTI DI USO COMUNE CHE SONO UTILIZZATI NELLA TUA FAMIGLIA 
О SVILUPPO COLONNARE/RIDUZIONI SCHEDINE TOTOCALCIO ТОТР etc. 

ELABORAZIONE PROBABILITÀ GIOCO DEL LOTTO 

CALCOLI MATEMATICI/SCIENTIFICI/STATISTICI 

UTILITIES/SUBROUTINES [ ] ASSEMBLER/DISASSEMBLER 

ALTRI PROGRAMMI (indicare quali) 












































Quali argomenti vorresti fossero trattati nella rivista? 


NOTA: 


DAI UN VALORE DA UNO А DIECI AD OGNUNA DELLE VOCI SEGUENTI INDICANDO CON IL VALORE PIÙ ALTO L'ARGOMENTO 


CHE PREFERISCI. 


PROGRAMMARE 


LISTATI DI PROGRAMMI DA COPIARE ED UTILIZZARE, CON COMMENTI LIMITATI ALL'USO DEL PROGRAMMA STESSO. 
LISTATI DI PROGRAMMI DA COPIARE, COMMENTATI DAL PUNTO DI VISTA DIDATTICO, PER IMPARARE A 


MEGLIO. 


POSTA DEI LETTORI 

INFORMAZIONI FLASH SU NUOVI PRODOTTI HARWARE E SOFTWARE 
PROVA DI APPARECCHIATURE (DISK DRIVE, STAMPANTI, COMPUTERS) 
TRUCCHI, REGOLE DI PROGRAMMAZIONE E CONSIGLI 
APPROFONDIMENTO DEL LINGUAGGIO BASIC 

SERVIZI A PUNTATE SU ALTRI LINGUAGGI DI PROGRAMMAZIONE 
INFORMAZIONI DI CARATTERE CULTURALE SULL'INFORMATICA 


(Storia dell'informatica, curiosità, aneddoti) 





GIOCO/CONCORSO A PREMI TRA | LETTORI 





Quale altra rubrica o servizio dovrebbe trattare, secondo te, la rivista? 














Quale frequenza dovrebbe avere la rivista? 





MENSILE 




















NO SI (specificare 

















SI NO 











ГІ BIMESTRALE 
Hai già realizzato programmi NUOVI per il tuo computer? 











TRIMESTRALE 








l hoo е еу ео Гс УНЕР muere eee la 





Ti piacerebbe vedere pubblicato sulla rivista un TUO programma, permettendo agli altri lettori di usufruirne? 





Esprimi un giudizio su questo 
OTTIMO perché.................... 
BUONO perché .................... 
SUFFICIENTE perché ........... 
SCARSO perché ................... 





























numero di LASER computer CLUB: 








UANTI ANNI HAI? ................... 


UALE ATTIVITÀ SVOLGI? 
STUDENTE SCUOLA MEDIA 


STUDENTE SCUOLA MEDIA 
STUDENTE UNIVERSITARIO 


пре 























IMPIEGATO пе! settore ......... 
DIRIGENTE in società di tipo 
COMMERCIANTE settore ...... 
ADDETTO EDP con mansioni 
ALTRA ATTIVITÀ (specificare) 
































INFERIORE 
SUPERIORE 


LIBERO:RROFESSIONISTA IM CAMEO irene iii 




















VORREI SPECIALIZZARMI IN 

















DEL LAVORO 
ALTRO (specificare) .............. 














Per quale motivo sei interessato al computer ed all’informatica? 
L] PER PASSATEMPO O DIVERTIMENTO 
LAVORO GIÀ IN QUESTO CAMPO 


QUESTO CAMPO 


SOLO PER RIMANERE AGGIORNATO 
SPERO CHE LA CONOSCENZA DI TALE MATERIA MI QUALIFICHI MAGGIORMENTE E MI PERMETTA DI INSERIRMI NEL MONDO 














20 





= Posta e telefono A CURA DELLA REDAZIONE 





Una rivista che si rispetti de- 
ve prevedere anche un suo 
"Angolo della Posta". 

| lettori, е noi siamo accaniti 
lettori, vogliono giustamente 
dire la loro sul contenuto e 
sulla forma; non ultimo, sui di- 
fetti, in genere “заһапісатеп- 
te ” sottolineati. 

Altri, speriamo non pochi, 
vorranno avere consigli, sug- 
gerimenti et similia per cre- 
scere culturalmente e tecni- 
camente nell'utilizzo del loro 
computer. 

BENE: noi siamo qui per que- 
sto! 

Nel presente numero rispon- 
diamo solo a due delle lette- 
re pervenuteci, in quanto trat- 
tano un argomento di interes- 
se generale. 

Il solito maligno sta sicura- 
mente pensando ‘‘figuriamo- 
ci se al numero zero hanno 
già posta da evadere". 
Invitiamo l'incredulo a scriver- 


ci: forniremo tutti i chiarimen- 
ti del caso. 

Scrivono Conti Marco da Ca- 
sagiove (CE) e Pani Donatel- 
la da Cagliari lamentandosi 
per il non funzionamento dei 
giochi Laser registrati su cas- 
setta. A questo proposito va 
innanzitutto precisato quanto 
segue: 

1) i giochi (in particolare) gi- 
rano soltanto su Laser con al- 
meno 16 KRAM. Occorrerà 
quindi inserire l'espansione 
nel Laser 110, 210 e VZ 200. 
Nel 310 non servono espan- 
Sioni. 

2) ll caricamento si effettua 
soltanto con “СВОМ”. 

3) Non deve esserci collega- 
to il Disk Drive. 

4) | Joystik devono essere 
collegati prima di caricare il 
gioco. 

5) La scritta “Loading error” 
compare generalmente o in 
seguito ad errata procedura 


di caricamento, oppure 
quando si utilizza il registrato- 
re DR-15 (per intenderci, 
quello con un cursore e la 
scritta Load/Play/Level sulla 
destra). 

In questo caso, al 90% si trat- 
ta di trovare la giusta posizio- 
ne di questo cursore fino a 
che non compare più la scrit- 
ta ‘“angosciante’’ Loading er- 
ror! 

Ciò premesso, vogliamo tran- 
quillizzare tutti gli acquirenti di 
Software Laser: i programmi 
sono stati tutti controllati, fun- 
zionano perfettamente e la 
copia corrisponde esatta- 
mente all'originale. Tuttavia 
poiché è risaputo che errare 
humanum est, può succede- 
re che, nonostante tutti gli ac- 
corgimenti sopra descritti, il 
programma non voglia sa- 
perne di farsi caricare. Prima 
di arrivare all'esaurimento 
nervoso, rispedite le casset- 


CAMPAGNA ABBONAMENTI !!! 


La rivista LASER COMPUTER CLUB uscirà a gennaio con il nr. 1. 
La pubblicazione, inizialmente, avrà una cadenza bimestrale. Ogni numero costerà L. 3.000. 

Può essere richiesta alla ARCA s.a.s. - Laser Computer Club - via Valleggio 2, 22100 COMO, 
allegando L. 3.000 in francobolli, oppure sottoscrivendo l'abbonamento annuale (1 numero GRATIS!!). 


te che vi verranno immedia- 
tamente restituite. Senza spe- 
Se, ovvio. 

PS: ogni tanto ë consigliabile 
pulire la testina del registrato- 
re con cotone leggermente 
imbevuto nell'alcool. 


Desidero sottoscrivere un abbonamento annuo alla rivista LASER COMPUTER CLUB (6 numeri, L. 15.000). 
Per il pagamento dell'importo dovuto attendo vostro bollettino di versamento postale. 
Vogliate inviare la rivista al seguente indirizzo: 


Cognome 


Nome 





Via 


Cap. 





Prov. 


Data 


Firma 





La presente offerta é valida solo per l'Italia e solo dall'1.9.85 al 31.12.85. 
SI RACCOMANDA DI SCRIVERE IN STAMPATELLO. 


Ritagliare e spedire in busta chiusa a: 
ARCA s.a.s. - LASER COMPUTER CLUB - Via Valleggio 2 - 22100 COMO 
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SUL PROSSIMO NUMERO: 

La ROM del Laser 

Gestione Conto Corrente 
Apri la cassaforte 

Sillabando 

Controllo codice fiscale 
Regressioni lineari 
Calendario perpetuo 

E in arrivo un NUOVO Laser!!! 


Editoriale 


POSTA E TELEFONO 1 
TRUCCHI REGOLE E CONSIGLI: 


Peek e Poke 2 
I caratteri grafici nei listati 3 
INFORMAZIONI: 

Il sistema LASER 310 4 
SOFTWARE: 

Il gioco della tombola 6 
Obstacle 8 
Il gioco dei quadrati 9 
Equazioni di secondo grado 11 
Inversioni 13 
Censimento 14 


IL LASER NASCOSTO: 
Come usare grafica e Joystick 16 


QUESTONARIO: 
Collaborare per crescere 
insieme 19 





Ë davvero per me un legittimo orgoglio e una grande 
soddisfazione poter presentare questo primo numero del- 
la rivista LASER COMPUTER CLUB. 

Sono serviti molti mesi di accurata preparazione e l'aiu- 
to di diverse persone prima che potessimo essere sod- 
disfatti noi stessi della rivista e potessimo in tutta tran- 
quillità presentarla al pubblico. 

Una rivista che trattasse prevalentemente software e no- 
tizie relative al computer LASER non era ancora appar- 
sa in edicola. 

Molti hanno la perizia e la malizia necessarie per trasfe- 
rire un programma dal Commodore o dallo Spectrum, 
per citare solo due degli home computer più venduti, al 
Laser. Tuttavia spesso vale davvero la pena di creare 
il software da zero. 

Questo però richiede tempo, e non tutti, purtroppo, hanno 
tempo da dedicare allo studio e alla realizzazione prati- 
ca di programmi che possano esere utili e soprattutto ‘‘gi- 
rino" sul computer Laser. D'altra parte, qualche momento 
di evasione non guasta, lo sappiamo; e perché non un 
videogame? 

Creare videogames per computer sembra una scioc- 
chezza; qualcosa su quanto invece sia difficoltoso inven- 


tare giochi intelligenti e divertenti ne sa chi li progetta e 
li scrive. 

Certo, trovare in una rivista numerosi giochi pronti da co- 
piare e da provare ë già allettante. Se in piü si conosco- 
no i trucchi necessari per creare facilmente propri giochi... 
LASER COMPUTER CLUB VI SVELA ANCHE QUESTO. 
E a partire dalle prossime pagine. 

In questo numero non abbiamo messo molta carne al 
fuoco; anzi, nostra prima preoccupazione é stata quella 
di sapere che cosa ne pensa il nostro lettore: per que- 
sto compare un questionario a cui vorremmo che tutti 
rispondessero. Nei prossimi numeri, tanti giochi, tanto 
software, tante possibilità per chiunque di partecipare con 
proprie elaborazioni, un concorso a premi... 

Non voglio anticipare le sorprese. Intendo soltanto rin- 
graziare di cuore tutti coloro che hanno saputo credere 
in questa iniziativa, a cominciare dal sig. Cagienard, e 
che intendono portarla avanti per i prossimi, perché no, 
cento anni. 

Ai lettori, un arrivederci al numero uno ed un invito calo- 
roso: COSTRUITE VOI STESSI LA VOSTRA RIVISTA!!! 


II DIRETTORE 
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ТЕТТЕ | 















P. Programma в di grafica 


1 2 Software: 4 giochi. 






Sped. Abb. Post. Gr. IV (70%) 
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